object mz_function: Tmz_function
  OldCreateOrder = False
  OnCreate = SoapDataModuleCreate
  Height = 402
  Width = 802
  object dmcSql: TDCOMConnection
    ServerGUID = '{88E4A433-CEE0-11D3-AFFB-0080AD1E1788}'
    ServerName = 'wh_mts_tagsql.wh_mts_tag_sql'
    Left = 93
    Top = 29
  end
  object cdsSql: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSP_dict'
    RemoteServer = dmcSql
    Left = 143
    Top = 31
  end
  object dmcInputInfo: TDCOMConnection
    ServerGUID = '{823FEE3E-81E0-410F-810C-9EB0244C3E8F}'
    ServerName = 'mzgh_dll_logic.FindPatient'
    Left = 88
    Top = 94
  end
  object cdsInputInfo: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'patient_id'
        ParamType = ptInput
        Value = '0'
      end>
    Left = 175
    Top = 97
    object cdsInputInfopatient_id: TStringField
      FieldName = 'patient_id'
      FixedChar = True
      Size = 12
    end
    object cdsInputInfoname: TStringField
      FieldName = 'name'
      Size = 60
    end
    object cdsInputInfosex: TStringField
      DisplayWidth = 2
      FieldName = 'sex'
      FixedChar = True
      Size = 2
    end
    object cdsInputInfobirth_day: TDateTimeField
      FieldName = 'birthday'
      EditMask = '0000-00-00'
    end
    object cdsInputInforesponse_type: TStringField
      DisplayWidth = 10
      FieldName = 'response_type'
      Size = 10
    end
    object cdsInputInfocontract_code: TStringField
      FieldName = 'contract_code'
      Size = 10
    end
    object cdsInputInfooccupation_code: TStringField
      FieldName = 'occupation_type'
      Size = 4
    end
    object cdsInputInfocharge_type: TStringField
      FieldName = 'charge_type'
      Size = 10
    end
    object cdsInputInfohaoming_code: TStringField
      DisplayWidth = 2
      FieldName = 'haoming_code'
      Size = 2
    end
    object cdsInputInfocode: TStringField
      DisplayWidth = 12
      FieldName = 'code'
      Size = 12
    end
    object cdsInputInfotimes: TIntegerField
      FieldName = 'times'
    end
    object cdsInputInfoage: TFloatField
      FieldName = 'age'
    end
    object cdsInputInfovisit_dept: TStringField
      FieldName = 'visit_dept'
      Size = 7
    end
    object cdsInputInfodoctor_code: TStringField
      FieldName = 'doctor_code'
      Size = 5
    end
    object cdsInputInfovisit_date: TDateTimeField
      FieldName = 'visit_date'
    end
    object cdsInputInfosocial_no: TStringField
      FieldName = 'social_no'
      Size = 18
    end
    object cdsInputInforeal_haoming_code: TStringField
      FieldName = 'real_haoming_code'
    end
    object cdsInputInfohic_no: TStringField
      FieldName = 'hic_no'
      Size = 10
    end
    object cdsInputInfoaddition_no1: TStringField
      FieldName = 'addition_no1'
    end
    object cdsInputInforeal_times: TIntegerField
      FieldName = 'real_times'
    end
    object cdsInputInfohome_tel: TStringField
      FieldName = 'home_tel'
      Size = 16
    end
    object cdsInputInfooutpatient_no: TStringField
      FieldName = 'outpatient_no'
      Size = 12
    end
    object cdsInputInfobalance: TFloatField
      FieldName = 'balance'
    end
    object cdsInputInfosyx_card_no: TStringField
      FieldName = 'syx_card_no'
    end
  end
  object cdsVisiteTable: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'patient_id'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'start1'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'end1'
        ParamType = ptInput
      end>
    ProviderName = 'dspMzVisitTable'
    RemoteServer = dcmVisittable
    Left = 347
    Top = 33
    object cdsVisiteTablepatient_id: TStringField
      FieldName = 'patient_id'
      Size = 12
    end
    object cdsVisiteTabletimes: TIntegerField
      FieldName = 'times'
    end
    object cdsVisiteTablevisit_dept: TStringField
      FieldName = 'visit_dept'
      Size = 7
    end
    object cdsVisiteTabledoctor_code: TStringField
      FieldName = 'doctor_code'
      Size = 5
    end
    object cdsVisiteTablevisit_date: TDateTimeField
      DisplayWidth = 22
      FieldName = 'visit_date'
    end
    object cdsVisiteTableicd_code: TStringField
      FieldName = 'icd_code'
      Size = 9
    end
    object cdsVisiteTableicd_code1: TStringField
      FieldName = 'icd_code1'
      Size = 9
    end
    object cdsVisiteTableicd_code2: TStringField
      FieldName = 'icd_code2'
      Size = 9
    end
    object cdsVisiteTableicd_code3: TStringField
      FieldName = 'icd_code3'
      Size = 9
    end
    object cdsVisiteTablemax_order: TIntegerField
      FieldName = 'max_order'
    end
    object cdsVisiteTablemax_trans_no: TIntegerField
      FieldName = 'max_trans_no'
    end
    object cdsVisiteTablename: TStringField
      DisplayWidth = 60
      FieldName = 'name'
      FixedChar = True
      Size = 60
    end
    object cdsVisiteTableresponse_type: TStringField
      FieldName = 'response_type'
      Size = 2
    end
    object cdsVisiteTablecontract_code: TStringField
      FieldName = 'contract_code'
      Size = 6
    end
    object cdsVisiteTablehaoming_code: TStringField
      FieldName = 'haoming_code'
      Size = 2
    end
    object cdsVisiteTablecharge_type: TStringField
      FieldName = 'charge_type'
      Size = 2
    end
    object cdsVisiteTableage: TBCDField
      FieldName = 'age'
      Precision = 4
      Size = 1
    end
    object cdsVisiteTablegroup_sn: TStringField
      FieldName = 'group_sn'
      FixedChar = True
      Size = 7
    end
    object cdsVisiteTableclinic_type: TStringField
      FieldName = 'clinic_type'
      FixedChar = True
      Size = 2
    end
    object cdsVisiteTablereq_type: TStringField
      FieldName = 'req_type'
      FixedChar = True
      Size = 2
    end
    object cdsVisiteTablegh_sequence: TSmallintField
      FieldName = 'gh_sequence'
    end
    object cdsVisiteTableampm: TStringField
      FieldName = 'ampm'
      FixedChar = True
      Size = 1
    end
    object cdsVisiteTablevisit_flag: TStringField
      FieldName = 'visit_flag'
      FixedChar = True
      Size = 1
    end
    object cdsVisiteTablegh_opera: TStringField
      FieldName = 'gh_opera'
      FixedChar = True
      Size = 5
    end
    object cdsVisiteTableclinic_opera: TStringField
      FieldName = 'clinic_opera'
      FixedChar = True
      Size = 5
    end
    object cdsVisiteTablegh_date: TDateTimeField
      FieldName = 'gh_date'
    end
    object cdsVisiteTableno_charge: TStringField
      FieldName = 'no_charge'
      FixedChar = True
      Size = 1
    end
    object cdsVisiteTablepjmz_flag: TStringField
      FieldName = 'pjmz_flag'
      FixedChar = True
      Size = 1
    end
  end
  object dcmVisittable: TDCOMConnection
    ServerGUID = '{B97F8741-91A7-49EB-B135-FE7CBD0BF3AF}'
    ServerName = 'mzgh_dll_data.mz_visit_table'
    Left = 272
    Top = 29
  end
  object dcmcharge: TDCOMConnection
    ServerGUID = '{7D762395-006A-41D1-B42C-985CB7DD0E2C}'
    ServerName = 'mzsf_dll_data.mz_charge_detail'
    Left = 85
    Top = 157
  end
  object cdscharge: TClientDataSet
    Aggregates = <>
    AggregatesActive = True
    IndexFieldNames = 'times;order_no;item_no'
    Params = <
      item
        DataType = ftString
        Name = 'patient_id'
        ParamType = ptInput
        Value = '11'
      end
      item
        DataType = ftInteger
        Name = 'times'
        ParamType = ptInput
        Value = 1
      end
      item
        DataType = ftString
        Name = 'charge_status'
        ParamType = ptInput
        Value = 0
      end>
    ProviderName = 'dspMz_Charge_Detail'
    RemoteServer = dcmcharge
    Left = 165
    Top = 158
    object cdschargepatient_id: TStringField
      FieldName = 'patient_id'
      FixedChar = True
      Size = 12
    end
    object cdschargetimes: TIntegerField
      FieldName = 'times'
    end
    object cdschargeorder_type: TStringField
      FieldName = 'order_type'
      FixedChar = True
      Size = 2
    end
    object cdschargeorder_no: TSmallintField
      FieldName = 'order_no'
    end
    object cdschargeitem_no: TSmallintField
      FieldName = 'item_no'
    end
    object cdschargeledger_sn: TSmallintField
      FieldName = 'ledger_sn'
    end
    object cdschargecharge_code: TStringField
      ConstraintErrorMessage = #39033#30446#21517#31216#19981#33021#20026#31354
      FieldName = 'charge_code'
      FixedChar = True
      Size = 9
    end
    object cdschargeserial_no: TStringField
      FieldName = 'serial_no'
      FixedChar = True
      Size = 2
    end
    object cdschargegroup_no: TStringField
      FieldName = 'group_no'
      FixedChar = True
      Size = 6
    end
    object cdschargecharge_status: TStringField
      FieldName = 'charge_status'
      FixedChar = True
      Size = 1
    end
    object cdschargebill_code: TStringField
      FieldName = 'bill_code'
      FixedChar = True
      Size = 3
    end
    object cdschargeaudit_code: TStringField
      FieldName = 'audit_code'
      FixedChar = True
      Size = 5
    end
    object cdschargeexec_sn: TStringField
      FieldName = 'exec_sn'
      FixedChar = True
      Size = 7
    end
    object cdschargecharge_amount: TFloatField
      FieldName = 'charge_amount'
    end
    object cdschargeorig_price: TFloatField
      FieldName = 'orig_price'
      DisplayFormat = '0.###'
      EditFormat = '0'
    end
    object cdschargecharge_price: TFloatField
      DisplayLabel = #21333#20215
      FieldName = 'charge_price'
      DisplayFormat = '0.0##'
    end
    object cdschargecharge_group: TStringField
      FieldName = 'charge_group'
      FixedChar = True
      Size = 2
    end
    object cdschargecaoyao_fu: TSmallintField
      FieldName = 'caoyao_fu'
    end
    object cdschargehappen_date: TDateTimeField
      FieldName = 'happen_date'
    end
    object cdschargeprice_data: TDateTimeField
      FieldName = 'price_data'
    end
    object cdschargeprice_opera: TStringField
      FieldName = 'price_opera'
      FixedChar = True
      Size = 5
    end
    object cdschargeenter_date: TDateTimeField
      FieldName = 'enter_date'
    end
    object cdschargeenter_opera: TStringField
      FieldName = 'enter_opera'
      FixedChar = True
      Size = 5
    end
    object cdschargewindows_no: TSmallintField
      FieldName = 'windows_no'
    end
    object cdschargeconfirm_date: TDateTimeField
      FieldName = 'confirm_date'
    end
    object cdschargeconfirm_opera: TStringField
      FieldName = 'confirm_opera'
      FixedChar = True
      Size = 5
    end
    object cdschargeconfirm_win: TSmallintField
      FieldName = 'confirm_win'
    end
    object cdschargeconfirm_flag: TStringField
      FieldName = 'confirm_flag'
      FixedChar = True
      Size = 1
    end
    object cdschargetrans_flag: TStringField
      FieldName = 'trans_flag'
      FixedChar = True
      Size = 1
    end
    object cdschargetrans_times: TIntegerField
      FieldName = 'trans_times'
    end
    object cdschargesupply_code: TStringField
      FieldName = 'supply_code'
      FixedChar = True
      Size = 3
    end
    object cdschargedosage: TFloatField
      DisplayLabel = #29992#37327
      FieldName = 'dosage'
    end
    object cdschargefreq_code: TStringField
      FieldName = 'freq_code'
      FixedChar = True
      Size = 4
    end
    object cdschargepersist_days: TSmallintField
      DisplayLabel = #22825#25968
      FieldName = 'persist_days'
    end
    object cdschargedosage_unit: TStringField
      FieldName = 'dosage_unit'
      FixedChar = True
      Size = 4
    end
    object cdschargecomment: TStringField
      FieldName = 'comment'
      FixedChar = True
      Size = 64
    end
    object cdschargefit_type: TSmallintField
      FieldName = 'fit_type'
    end
    object cdschargeinfant_flag: TStringField
      FieldName = 'infant_flag'
      FixedChar = True
      Size = 1
    end
    object cdschargeself_flag: TStringField
      FieldName = 'self_flag'
      FixedChar = True
      Size = 1
    end
    object cdschargeseparate_flag: TStringField
      FieldName = 'separate_flag'
      FixedChar = True
      Size = 1
    end
    object cdschargesupprice_flag: TStringField
      FieldName = 'supprice_flag'
      FixedChar = True
      Size = 1
    end
    object cdschargepoision_flag: TStringField
      FieldName = 'poision_flag'
      FixedChar = True
      Size = 1
    end
    object cdschargeslave_flag: TStringField
      FieldName = 'slave_flag'
      FixedChar = True
      Size = 1
    end
    object cdschargeope_flag: TStringField
      FieldName = 'ope_flag'
      FixedChar = True
      Size = 1
    end
    object cdschargeemergency_flag: TStringField
      FieldName = 'emergency_flag'
      FixedChar = True
      Size = 1
    end
    object cdschargeadditional_flag: TStringField
      FieldName = 'additional_flag'
      FixedChar = True
      Size = 1
    end
    object cdschargeback_amount: TSmallintField
      FieldName = 'back_amount'
    end
    object cdschargemz_dept_no: TStringField
      FieldName = 'mz_dept_no'
      Size = 1
    end
    object cdschargeisselected: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'isselected'
    end
    object cdschargeprice: TFloatField
      DisplayLabel = #37329#39069
      FieldKind = fkInternalCalc
      FieldName = 'price'
      DisplayFormat = '#0.0'
    end
    object cdschargeorder_properties: TStringField
      FieldName = 'order_properties'
      FixedChar = True
      Size = 3
    end
    object cdschargedoctor_code: TStringField
      FieldName = 'doctor_code'
      FixedChar = True
      Size = 5
    end
    object cdschargeapply_unit: TStringField
      FieldName = 'apply_unit'
      FixedChar = True
      Size = 7
    end
    object cdschargename: TStringField
      DisplayWidth = 60
      FieldName = 'name'
      Size = 60
    end
    object cdschargepercent: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'percent'
    end
    object cdschargespecification: TStringField
      DisplayLabel = #35268#26684
      FieldKind = fkInternalCalc
      FieldName = 'specification'
      Size = 16
    end
    object cdschargealready_percent: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'already_percent'
      Size = 1
    end
    object cdschargepercentage: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'percentage'
    end
    object cdschargeinput_price: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'input_price'
    end
    object cdschargeexec_times: TSmallintField
      FieldName = 'exec_times'
    end
    object cdschargecharge_no: TIntegerField
      FieldName = 'charge_no'
    end
    object cdschargedevice_no: TSmallintField
      FieldName = 'device_no'
    end
    object cdschargereport_date: TDateTimeField
      FieldName = 'report_date'
    end
    object cdschargebuy_price: TFloatField
      FieldName = 'buy_price'
    end
    object cdschargetrans_date: TDateTimeField
      FieldName = 'trans_date'
    end
    object cdschargeyb_in: TFloatField
      FieldName = 'yb_in'
    end
    object cdschargeyb_out: TFloatField
      FieldName = 'yb_out'
    end
    object cdschargeput_opera: TStringField
      FieldName = 'put_opera'
      FixedChar = True
      Size = 5
    end
    object cdschargeparent_no: TIntegerField
      FieldName = 'parent_no'
    end
    object cdschargeskin_test_flag: TStringField
      FieldName = 'skin_test_flag'
      FixedChar = True
      Size = 1
    end
    object cdschargeaccount_date: TDateTimeField
      FieldName = 'account_date'
    end
    object cdschargesamp_id: TStringField
      FieldName = 'samp_id'
      FixedChar = True
      Size = 14
    end
    object cdschargeinfusion_flag: TStringField
      FieldName = 'infusion_flag'
      FixedChar = True
      Size = 1
    end
    object cdschargefu_flag: TStringField
      FieldName = 'fu_flag'
      FixedChar = True
      Size = 1
    end
    object cdschargeprice_model: TIntegerField
      FieldKind = fkInternalCalc
      FieldName = 'price_model'
    end
    object cdschargecharge_fee: TBCDField
      FieldName = 'charge_fee'
      Precision = 12
      Size = 2
    end
    object cdschargeorder_sum: TAggregateField
      Alignment = taRightJustify
      FieldName = 'order_sum'
      Active = True
      DisplayFormat = '#0.0#'
      Expression = 'sum(price)'
    end
    object cdschargemax_item: TAggregateField
      FieldName = 'max_item'
      Active = True
      Expression = 'max(item_no)'
    end
  end
  object dcmHuaJia: TDCOMConnection
    ServerGUID = '{028B70F1-CAE8-42AB-BBE0-D7AC05F7DDD9}'
    ServerName = 'mzsf_dll_logic.MzsfHuaJia'
    Left = 80
    Top = 226
  end
  object cdsMzconfig: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 252
    Top = 97
  end
  object dcmSqlData: TDCOMConnection
    ServerGUID = '{92E8AF8E-299E-45B6-9DD0-C33F1565CDC0}'
    ServerName = 'mzsf_yb_Data.mzsf_dtm_Data'
    Left = 203
    Top = 30
  end
  object cdsSqlData: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspPub'
    RemoteServer = dcmSqlData
    Left = 435
    Top = 31
  end
  object cdsYbzlfPayUnit: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 373
    Top = 97
  end
  object cdsClinicLedgerSn: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 434
    Top = 99
    object cdsClinicLedgerSnpatient_id: TStringField
      FieldName = 'patient_id'
      Size = 12
    end
    object cdsClinicLedgerSntimes: TIntegerField
      FieldName = 'times'
    end
    object cdsClinicLedgerSnledger_sn: TIntegerField
      FieldName = 'ledger_sn'
    end
    object cdsClinicLedgerSnnew_ledger_sn: TIntegerField
      FieldName = 'new_ledger_sn'
    end
    object cdsClinicLedgerSnsb_ledger_no: TStringField
      FieldName = 'sb_ledger_no'
      Size = 30
    end
    object cdsClinicLedgerSnghlsh: TStringField
      FieldName = 'ghlsh'
      Size = 30
    end
    object cdsClinicLedgerSnmzlsh: TStringField
      FieldName = 'mzlsh'
    end
    object cdsClinicLedgerSncflsh: TStringField
      FieldName = 'cflsh'
    end
    object cdsClinicLedgerSnmzlb: TStringField
      FieldName = 'mzlb'
      Size = 10
    end
    object cdsClinicLedgerSnorder_no: TIntegerField
      FieldName = 'order_no'
    end
    object cdsClinicLedgerSnname: TStringField
      FieldName = 'name'
      Size = 64
    end
    object cdsClinicLedgerSnsocial_no: TStringField
      FieldName = 'social_no'
      Size = 30
    end
  end
  object cdsSbInterface: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 434
    Top = 167
  end
  object dcmGetOrderNO: TDCOMConnection
    ServerGUID = '{7978FC30-6BFF-4744-9684-E5EE24EC8AB5}'
    ServerName = 'mzsf_dll_logic.FeePublic'
    Left = 79
    Top = 285
  end
  object cdsSvrDT: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspGetServerDateTime'
    RemoteServer = dcmGetOrderNO
    Left = 158
    Top = 287
  end
  object cdsBillCharge: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 259
    Top = 191
  end
  object cdsBillChargeDetail: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 326
    Top = 190
  end
  object cdsbillitemNo: TClientDataSet
    Aggregates = <>
    AggregatesActive = True
    Params = <>
    Left = 240
    Top = 247
    object cdsbillitemNopatient_id: TStringField
      FieldName = 'patient_id'
      Visible = False
      FixedChar = True
      Size = 12
    end
    object cdsbillitemNoreceipt_sn: TIntegerField
      FieldName = 'receipt_sn'
      Visible = False
    end
    object cdsbillitemNoledger_sn: TSmallintField
      FieldName = 'ledger_sn'
      Visible = False
    end
    object cdsbillitemNobill_code: TStringField
      DisplayLabel = #24080#21333#30721
      FieldName = 'bill_code'
      Visible = False
      FixedChar = True
      Size = 3
    end
    object cdsbillitemNocharge: TFloatField
      DisplayLabel = #37329#39069
      DisplayWidth = 5
      FieldName = 'charge'
      DisplayFormat = '0.##'
    end
    object cdsbillitemNopay_unit: TStringField
      FieldName = 'pay_unit'
      Visible = False
      Size = 2
    end
    object cdsbillitemNopay_sum: TAggregateField
      FieldName = 'pay_sum'
      Active = True
      currency = True
      DisplayFormat = '0.##'
      Expression = 'sum(charge)'
    end
  end
  object dcmYJJitem: TDCOMConnection
    ServerGUID = '{D2E212D1-026F-478B-9F5C-1593714540E8}'
    ServerName = 'mzsf_dll_data.mz_deposit'
    Left = 79
    Top = 349
  end
  object cdsYJJitem: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'ledger_sn;item_no'
    Params = <
      item
        DataType = ftString
        Name = 'patient'
        ParamType = ptInput
        Value = '11'
      end
      item
        DataType = ftSmallint
        Name = 'ledger_sn'
        ParamType = ptInput
        Value = '0'
      end>
    ProviderName = 'dspmz_deposit'
    RemoteServer = dcmYJJitem
    Left = 138
    Top = 350
    object cdsYJJitempatient_id: TStringField
      FieldName = 'patient_id'
      Size = 12
    end
    object cdsYJJitemitem_no: TSmallintField
      FieldName = 'item_no'
    end
    object cdsYJJitemledger_sn: TSmallintField
      FieldName = 'ledger_sn'
    end
    object cdsYJJitemcheque_type: TStringField
      FieldName = 'cheque_type'
      Size = 2
    end
    object cdsYJJitemcheque_no: TStringField
      FieldName = 'cheque_no'
      Size = 12
    end
    object cdsYJJitemcharge: TBCDField
      FieldName = 'charge'
      Precision = 8
      Size = 2
    end
    object cdsYJJitemdepo_status: TStringField
      FieldName = 'depo_status'
      FixedChar = True
      Size = 1
    end
    object cdsYJJitemdepo_date: TDateTimeField
      FieldName = 'depo_date'
      DisplayFormat = 'yyyy_mm_dd'
    end
    object cdsYJJitemdepo_opera: TStringField
      FieldName = 'depo_opera'
      Size = 5
    end
    object cdsYJJitemwindows_no: TSmallintField
      FieldName = 'windows_no'
    end
    object cdsYJJitemdcount_date: TDateTimeField
      FieldName = 'dcount_date'
    end
    object cdsYJJitemdcount_id: TStringField
      FieldName = 'dcount_id'
      Size = 5
    end
    object cdsYJJitemdeposit_no: TStringField
      FieldName = 'deposit_no'
      Size = 16
    end
    object cdsYJJitemreport_date: TDateTimeField
      FieldName = 'report_date'
    end
    object cdsYJJitemmz_dept_no: TStringField
      FieldName = 'mz_dept_no'
      FixedChar = True
      Size = 1
    end
  end
  object dcmShouFei: TDCOMConnection
    ServerGUID = '{01A62078-AB56-4F32-AC91-33AFB9D88E7D}'
    ServerName = 'mzsf_dll_logic.MzSouFei'
    Left = 556
    Top = 37
  end
  object cdsLedDisplay: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 535
    Top = 119
    object cdsLedDisplayledger_sn: TIntegerField
      FieldName = 'ledger_sn'
    end
    object cdsLedDisplaygroupname: TStringField
      FieldName = 'groupname'
    end
    object cdsLedDisplaywindowno: TStringField
      FieldName = 'windowno'
      Size = 2
    end
    object cdsLedDisplayteam_no: TStringField
      FieldName = 'team_no'
      Size = 2
    end
    object cdsLedDisplaygroup_no: TStringField
      FieldName = 'group_no'
      Size = 7
    end
  end
  object dcmChargeFunction: TDCOMConnection
    ServerGUID = '{7D762395-006A-41D1-B42C-985CB7DD0E2C}'
    ServerName = 'mzsf_dll_data.mz_charge_detail'
    Left = 259
    Top = 344
  end
  object cdsGetItemOrderNO: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 340
    Top = 350
    object cdsGetItemOrderNOorder_no: TIntegerField
      FieldName = 'order_no'
    end
    object cdsGetItemOrderNOorder_type: TStringField
      FieldName = 'order_type'
    end
    object cdsGetItemOrderNOname: TStringField
      FieldName = 'name'
    end
    object cdsGetItemOrderNOdrug_cure: TStringField
      FieldName = 'drug_cure'
    end
    object cdsGetItemOrderNOgroup_no: TStringField
      FieldName = 'group_no'
      Size = 6
    end
    object cdsGetItemOrderNOcaoyao_fu: TIntegerField
      FieldName = 'caoyao_fu'
    end
  end
  object cdsBill: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 300
    Top = 248
    object cdsBillbill_code: TStringField
      FieldName = 'bill_code'
      Size = 3
    end
  end
end
